Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Strategic Information

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Strategic Information Skills assess the ability to effectively search for and locate information online. This includes choosing good keywords, using search functions, and finding answers to questions on the internet.

Skills

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3

Knowledge

Strategic Information Skills assess the ability to effectively search for and locate information online. This includes choosing good keywords, using search functions, and finding answers to questions on the internet.

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2

Performance

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Question 1
Back to top
Source Code
---
title: "{{< iconify ph magnifying-glass >}} Strategic Information"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

**Strategic Information Skills** assess the ability to effectively search for and locate information online. This includes choosing good keywords, using search functions, and finding answers to questions on the internet.

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```

## {{< iconify ph lightning-fill >}} Skills


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r sis-wave1-overall-2}
# Strategic Information Skills
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(SInfo1, SInfo3_V2, SInfo4),
  title = "Strategic Information Skills",
  questions = c("SInfo1", "SInfo3_V2", "SInfo4"),
  question_labels = c("I know how to choose good keywords for online searches (for example with Google).", "I know how I can find answers to my questions on the internet.", "I know how I can use search functions in search engines (for example with Google)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave1-age-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave1-age-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave1-age-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo4"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave1-gender-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave1-gender-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave1-gender-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo4"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave1-edu-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave1-edu-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave1-edu-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo4"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r sis-wave2-overall-2}
# Strategic Information Skills
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(SInfo1, SInfo3_V2, SInfo4),
  title = "Strategic Information Skills",
  questions = c("SInfo1", "SInfo3_V2", "SInfo4"),
  question_labels = c("I know how to choose good keywords for online searches (for example with Google).", "I know how I can find answers to my questions on the internet.", "I know how I can use search functions in search engines (for example with Google)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave2-age-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave2-age-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave2-age-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SInfo4"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave2-gender-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave2-gender-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave2-gender-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SInfo4"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-wave2-edu-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo1),
  title = "I know how to choose good keywords for online searches (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-wave2-edu-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo3_V2),
  title = "I know how I can find answers to my questions on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-wave2-edu-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SInfo4),
  title = "I know how I can use search functions in search engines (for example with Google).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SInfo4"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-overtime-overall-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how to choose good keywords for online searches (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-overtime-overall-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_timeline(
  data = data,
  title = "I know how I can find answers to my questions on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo3_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-overtime-overall-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how I can use search functions in search engines (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SInfo4"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-overtime-age-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how to choose good keywords for online searches (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-overtime-age-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_timeline(
  data = data,
  title = "I know how I can find answers to my questions on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo3_V2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-overtime-age-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how I can use search functions in search engines (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo4",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-overtime-gender-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how to choose good keywords for online searches (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-overtime-gender-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_timeline(
  data = data,
  title = "I know how I can find answers to my questions on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo3_V2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-overtime-gender-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how I can use search functions in search engines (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo4",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r sis-overtime-edu-item1-2}
# I know how to choose good keywords for online searches (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how to choose good keywords for online searches (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r sis-overtime-edu-item2-2}
# I know how I can find answers to my questions on the internet.
result <- create_timeline(
  data = data,
  title = "I know how I can find answers to my questions on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo3_V2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r sis-overtime-edu-item3-2}
# I know how I can use search functions in search engines (for example with Google).
result <- create_timeline(
  data = data,
  title = "I know how I can use search functions in search engines (for example with Google).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SInfo4",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph book-open-fill >}} Knowledge


**Strategic Information Skills** assess the ability to effectively search for and locate information online. This includes choosing good keywords, using search functions, and finding answers to questions on the internet.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r kinfo-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(KInfo1RC, KInfo2RC),
  title = "",
  questions = c("KInfo1RC", "KInfo2RC"),
  question_labels = c("The first search result is always the best information source.", "Everyone gets the same information when they search for the same things online."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave1-age-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave1-age-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo2RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave1-gender-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave1-gender-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo2RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave1-edu-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave1-edu-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo2RC"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r kinfo-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(KInfo1RC, KInfo2RC),
  title = "",
  questions = c("KInfo1RC", "KInfo2RC"),
  question_labels = c("The first search result is always the best information source.", "Everyone gets the same information when they search for the same things online."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave2-age-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave2-age-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KInfo2RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave2-gender-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave2-gender-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KInfo2RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-wave2-edu-item1-2}
# The first search result is always the best information source.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KInfo1RC),
  title = "The first search result is always the best information source.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-wave2-edu-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KInfo2RC),
  title = "Everyone gets the same information when they search for the same things online.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("X", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("X", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KInfo2RC"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-overtime-overall-item1-2}
# The first search result is always the best information source.
result <- create_timeline(
  data = data,
  title = "The first search result is always the best information source.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KInfo1RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-overtime-overall-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_timeline(
  data = data,
  title = "Everyone gets the same information when they search for the same things online.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KInfo2RC"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-overtime-age-item1-2}
# The first search result is always the best information source.
result <- create_timeline(
  data = data,
  title = "The first search result is always the best information source.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo1RC",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-overtime-age-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_timeline(
  data = data,
  title = "Everyone gets the same information when they search for the same things online.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo2RC",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-overtime-gender-item1-2}
# The first search result is always the best information source.
result <- create_timeline(
  data = data,
  title = "The first search result is always the best information source.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo1RC",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-overtime-gender-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_timeline(
  data = data,
  title = "Everyone gets the same information when they search for the same things online.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo2RC",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kinfo-overtime-edu-item1-2}
# The first search result is always the best information source.
result <- create_timeline(
  data = data,
  title = "The first search result is always the best information source.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo1RC",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kinfo-overtime-edu-item2-2}
# Everyone gets the same information when they search for the same things online.
result <- create_timeline(
  data = data,
  title = "Everyone gets the same information when they search for the same things online.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KInfo2RC",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph clipboard-text >}} Performance


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-sis-wave1-overall-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  questions = "PSIS2R",
  question_labels = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave1-age-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSIS2R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave1-gender-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSIS2R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave1-edu-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSIS2R"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-sis-wave2-overall-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  questions = "PSIS2R",
  question_labels = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave2-age-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSIS2R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave2-gender-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSIS2R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-wave2-edu-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSIS2R),
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSIS2R"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-overtime-overall-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_timeline(
  data = data,
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSIS2R"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-overtime-age-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_timeline(
  data = data,
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSIS2R",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-overtime-gender-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_timeline(
  data = data,
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSIS2R",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-sis-overtime-edu-item1-2}
# Restrict Google to Dutch sources (correct/incorrect)
result <- create_timeline(
  data = data,
  title = "Restrict Google to Dutch sources (correct/incorrect)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSIS2R",
  group_var = "Education"
)

result
```


:::


:::


:::

© 2025 Digital Competence Insights Dashboard - All Rights Reserved

 

dashboardr Powered by dashboardr